$_ = join('', <>);
split(/\&/);
for (@_) {
	s/\+/ /g;
	s/%([[:xdigit:]]{2})/chr(hex($1))/eg;
	if (/^dataQuestion=/) {
		my($tmp) = $';
		$tmp =~ s/ //g;
		print $tmp;
	} elsif (/^dataSolution=/) {
		# ignore
	} else {
		print "# $_\n";
	}
}
